home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #1 / Commodore_Disk_User_Vol.3_1_1989_-.d64 / help part 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  259 lines
  1. 10 rem ********************************
  2. 12 rem *                              *
  3. 14 rem *   h   e   l   p     6   4    *
  4. 16 rem *   -----------------------    *
  5. 18 rem *                              *
  6. 20 rem * program 2 : screen generator *
  7. 22 rem *                              *
  8. 24 rem * this program will display    *
  9. 26 rem * and write each of the 10     *
  10. 28 rem * help screens to disk.        *
  11. 30 rem *                              *
  12. 32 rem *                              *
  13. 34 rem * copyright (c) andrew leeder, *
  14. 36 rem *               december 1988. *
  15. 38 rem *                              *
  16. 40 rem ********************************
  17. 50 :
  18. 100 open1,8,2," h.screens,p,w":print#1,chr$(0);chr$(160);:fori=1to10
  19. 110 print"[147]":onigosub1000,2000,3000,4000,5000,6000,7000,8000,9000,10000
  20. 120 print""hd$:forj=0to15:print#1,chr$(peek(1065+j));:nextj
  21. 130 print#1,chr$(bd);chr$(bg);chr$(fm);chr$(fg);
  22. 140 forj=1145to1945step40:fork=jtoj+37:print#1,chr$(peek(k));:nextk,j,i:close1
  23. 150 print"[147]finished.":end
  24. 160 :
  25. 999 rem ******************help screen 1
  26. 1000 hd$="[213]seful [193]ddresses":bd=6:bg=1:fm=12:fg=0
  27. 1010 print"[193]ddress[221][196]escription"
  28. 1020 print"[192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  29. 1030 print"43-44[221][208]ointer: [211]tart of [194][193][211][201][195] text"
  30. 1040 print"45-46[221][208]ointer: [211]tart [194][193][211][201][195] variables"
  31. 1050 print"55-56[221][200]ighest address used by [194][193][211][201][195]"
  32. 1060 print"197[221][195]urrent key pressed (64=none)"
  33. 1070 print"198[221][206]o. chars in keyboard buffer"
  34. 1080 print"251-254[221][198]ree zero page locations"
  35. 1090 print"646[221][198]oreground (character) colour"
  36. 1095 print"647[221][194]ackground colour under cursor"
  37. 1100 print"648[221][208]ointer: [211]creen [205]emory"
  38. 1110 print"631-640[221][203]eyboard buffer (10 bytes)"
  39. 1120 print"650[221][203]ey repeat: 0=normal,"
  40. 1130 print"[221]     100=disable, 255=all keys"
  41. 1140 print"653[221][211]hift/[195]trl/[195]= [203]eys, 1=[211]hift,"
  42. 1145 print"[221]       2=[195]ommodore, 4=[195]trl key"
  43. 1150 print"788-789[221][201][210][209] [214]ector (normally 59953)"
  44. 1160 print"828-   [221][195]assette buffer: can use for"
  45. 1170 print"1023[221]    3 sprites (at 832,896,960)"
  46. 1200 print"1024-[221][211]creen memory (1000 bytes)"
  47. 1210 print"55296-[221][195]olour memory (1000 bytes)"
  48. 1990 return
  49. 1998 :
  50. 1999 rem *****************help screen 2
  51. 2000 hd$="[195]haracter [195]odes ":bd=6:bg=1:fm=12:fg=0
  52. 2010 print"":tb=3:ch=0:forb=1146to1146+24step5:fora=btob+720step40
  53. 2020 pokea+4,93:pokea,ch:printtab(tb);ch:ch=ch+1:nexta:print"":tb=tb+5:nextb
  54. 2030 ad=1171:fora=95to113:pokead+5,93:pokead,a:ad=ad+40:printtab(28);a:nexta
  55. 2040 print"":ad=1177:fora=114to127:pokead,a:ad=ad+40:printtab(34);a:nexta
  56. 2050 print"[195]odes 128-255 are reversed images of "
  57. 2060 print"codes 0-127, so add 128"
  58. 2990 return
  59. 2998 :
  60. 2999 rem *****************help screen 3
  61. 3000 hd$="     [195]olour     ":bd=6:bg=1:fm=12:fg=0
  62. 3010 print"0  [194]lack  [195][212][210][204] 1 [221]    0123456789012345"
  63. 3020 print"1  [215]hite  [195][212][210][204] 2 [221]  0 [216][186][216][186][186]*[216][186][186][216][186][186][186][186][186][186]"
  64. 3030 print"2  [210]ed    [195][212][210][204] 3 [221]  1 [186][216][186][216][186][186][186][216]*[186]*[186][186][216][186][186]"
  65. 3040 print"3  [195]yan   [195][212][210][204] 4 [221]  2 [216][186][216][216]*[216][216][186][186][216][186][216][216][216][216][186]"
  66. 3050 print"4  [208]urple [195][212][210][204] 5 [221]  3 [186][216][216][216][216]*[186][216][216][216][216]*[216][216]*[216]"
  67. 3060 print"5  [199]reen  [195][212][210][204] 6 [221]  4 [186]*[216][216][216][216][216][216][216][216][216][216][216][216][216]*"
  68. 3070 print"6  [194]lue   [195][212][210][204] 7 [221]  5 [186]*[216]*[216][216][216][216][216][216][216]*[216][186][216]*"
  69. 3080 print"7  [217]ellow [195][212][210][204] 8 [221]  6 *[186][216][186][216][216][216][216][216][216][216][216][216]*[186][186]"
  70. 3090 print"8  [207]range   [195]= 1 [221]  7 [186][216][186][216][216][216]*[216]*[186]*[186][186][216][216][216]"
  71. 3100 print"9  [194]rown    [195]= 2 [221]  8 *[186][186][216][216][216][216][186][216][186][216][216][216][216][216]*"
  72. 3110 print"10 [204]t [210]ed   [195]= 3 [221]  9 [216][186][216][216][216][216][216][186][186][216][186][216][216][216][216][186]"
  73. 3120 print"11 [199]rey 1   [195]= 4 [221] 10 **[186][216][216][216][216]*[216][186][216][216][216][216][216]*"
  74. 3130 print"12 [199]rey 2   [195]= 5 [221] 11 [186][186][216]*[216][216][216][186][216][216][216][216][186][186]*[186]"
  75. 3140 print"13 [204]t [199]reen [195]= 6 [221] 12 [186][186]*[216][216][216]*[216][216]*[216][186][216][216][216][186]"
  76. 3150 print"14 [204]t [194]lue  [195]= 7 [221] 13 [186][216][216][216][216][186]*[216][216][216][216][186][216][216][216][216]"
  77. 3160 print"15 [199]rey 3   [195]= 8 [221] 14 [186][186][216][186][216][216][186][216][216][216][216]*[216][216][216]*"
  78. 3170 print"[221] 15 [186][186][186][216]**[186][216][216]**[186][186][216]*[216]"
  79. 3175 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  80. 3180 print"[208][207][203][197]   646,foreground [221]   [186] = [199][207][207][196] [205][201][216]"
  81. 3190 print"[208][207][203][197] 53280,border    [160][221]   * = [198][193][201][210] [205][201][216]"
  82. 3200 print"[208][207][203][197] 53281,background [221]   [216] = [208][207][207][210] [205][201][216]"
  83. 3990 return
  84. 3998 :
  85. 3999 rem *****************help screen 4
  86. 4000 hd$="   [203]ey [208]ress    ":bd=6:bg=1:fm=12:fg=0
  87. 4010 print"0 [196]el   [221] 21 [198] [221] 42 [204]    [221] 63 [206]one"
  88. 4020 print"1 [210]eturn[221] 22 [212] [221] 43 -    [221] 64 [206]o key"
  89. 4030 print"2 [210]ight [221] 23 [216] [221] 44 .    [221]    pressed"
  90. 4040 print"3 [198]7    [221] 24 7 [221] 45 :    [221][192][192][192][192][192][192][192][192][192][192][192]"
  91. 4050 print"4 [198]1    [221] 25 [217] [221] 46 @    [221]197 holds"
  92. 4060 print"5 [198]3    [221] 26 [199] [221] 47 ,    [221]a coded"
  93. 4070 print"6 [198]5    [221] 27 8 [221] 48 \    [221]value for"
  94. 4080 print"7 [196]own  [221] 28 [194] [221] 49 *    [221]the current"
  95. 4090 print"8 3     [221] 29 [200] [221] 50 ;    [221]key pressed"
  96. 4100 print"9 [215]     [221] 30 [213] [221] 51 [195]lear[221][210]efer to"
  97. 4110 print"10 [193]     [221] 31 [214] [221] 52 [206]one [221]this table"
  98. 4120 print"11 4     [221] 32 9 [221] 53 =    [221]for these"
  99. 4130 print"12 [218]     [221] 33 [201] [221] 54 ^    [221]values."
  100. 4140 print"13 [211]     [221] 34 [202] [221] 55 /    [221][201]f more"
  101. 4150 print"14 [197]     [221] 35 0 [221] 56 1    [221]than one"
  102. 4160 print"15 [206]one  [221] 36 [205] [221] 57 _    [221]key is"
  103. 4170 print"16 5     [221] 37 [203] [221] 58 [206]one [221]pressed the"
  104. 4180 print"17 [210]     [221] 38 [207] [221] 59 2    [221]higher is"
  105. 4190 print"18 [196]     [221] 39 [206] [221] 60 [211]pace[221]stored."
  106. 4200 print"19 6     [221] 40 + [221] 61 [206]one [221]"
  107. 4210 print"20 [195]     [221] 41 [208] [221] 62 [209]    [221]"
  108. 4990 return
  109. 4998 :
  110. 4999 rem *****************help screen 5
  111. 5000 hd$="   [205]emory [205]ap   ":bd=6:bg=1:fm=12:fg=0
  112. 5010 print"65535[176][192][192][192][192][192][192][192][192][192][192][192][192][174]$[198][198][198][198][221][195]haracter [210][207][205]"
  113. 5020 print"[221]8[203] [203]ernal[210][207][205][221]     [221]at 53248 (4[203])"
  114. 5030 print"57344[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[197]000[221]    [201]mage at"
  115. 5040 print"[221][201]nput/[207]utput[221]     [221]    4096-8191"
  116. 5050 print"56320[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[196][195]00[171][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  117. 5060 print"[221][195]olour [210][193][205]  [221]     [221][207]n power up,"
  118. 5070 print"55296[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[196]800[221][214][201][195] [201][201] sees"
  119. 5080 print"[221][214][201][195] [201][201] &[160][211][201][196][221]     [221]1st 16[203] [194]ank"
  120. 5090 print"53248[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[196]000[221](0-16383)"
  121. 5100 print"[221]4[203] [198]ree [210][193][205] [221]     [171][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  122. 5110 print"49152[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[195]000[221]$0001 (1)"
  123. 5120 print"[221]8[203] [194]asic [210][207][205][221]     [221]controls"
  124. 5130 print"40960[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[193]000[221]switching of"
  125. 5140 print"[221]38[203] [198]ree    [221]     [221][210][193][205]"
  126. 5150 print"16384[221]   [213]ser [210][193][205] [221]$4000[221] - bit 0"
  127. 5160 print"2048[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$0800[221] [194]asic [210][207][205]"
  128. 5170 print"[221][211]pr [208]ointers[221]     [221]   0=[210][193][205]"
  129. 5180 print"[221][212]ext [211]creen [221]     [221]   1=[210][207][205] in"
  130. 5190 print"1024[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$0400[221] - bit 1"
  131. 5200 print"[221][211]ystem [205]em  [221]     [221] [203]ernal [210][207][205]"
  132. 5210 print"0[173][192][192][192][192][192][192][192][192][192][192][192][192][189]$0000[221]   same"
  133. 5990 return
  134. 5998 :
  135. 5999 rem *****************help screen 6
  136. 6000 hd$="   [214]ideo  (1)   ":bd=6:bg=1:fm=12:fg=0
  137. 6010 print"53248 [211]prite 0 [216] position register"
  138. 6020 print"53249          [217] position register"
  139. 6030 print"... and so on to 53263 ([211]prite 7 [217])"
  140. 6040 print"53264 [205]ost [211]ignificant [194]it of [216] pos"
  141. 6050 print"for sprites 0-7, bit 0=sprite 0 [205][211][194]"
  142. 6060 print"... bit 7=sprite 7 [205][211][194]"
  143. 6070 print"53265 bit 0-2:vertical scrolling"
  144. 6080 print"bit   3:screen height, 0=24 rows"
  145. 6090 print"1=25 rows"
  146. 6100 print"bit   4:display on/off, 0=off"
  147. 6110 print"1=on"
  148. 6120 print"bit   5:bit map on/off"
  149. 6130 print"bit   6:extended colour on/off"
  150. 6140 print"bit   7:[205][211][194] of raster register"
  151. 6150 print"53266 [210]aster register.  [210]ead to find"
  152. 6160 print"current line being drawn."
  153. 6170 print"[215]rite to generate interrupt."
  154. 6180 print"53267 [204]ight pen [216] position"
  155. 6190 print"53268 [204]ight pen [217] position"
  156. 6200 print"53269 [197]nable/disable sprites 0-7, each"
  157. 6210 print"bit equivalent to sprite number"
  158. 6990 return
  159. 6998 :
  160. 6999 rem *****************help screen 7
  161. 7000 hd$="   [214]ideo  (2)   ":bd=6:bg=1:fm=12:fg=0
  162. 7005 print"53270 bit 0-2:horizontal scrolling"
  163. 7006 print"bit   3:screen width"
  164. 7010 print"bit 4-5:[211]et/[210]eset [205]ulticolour"
  165. 7020 print"bit 6-7:unused"
  166. 7030 print"53271 [217] expansion of sprites 0-7"
  167. 7040 print"53272 [204]ocation of screen memory,colour"
  168. 7050 print"memory,character memory"
  169. 7060 print"bit 1-3:character set position"
  170. 7070 print"bit 4-7:screen position"
  171. 7080 print"(or colour memory, if bitmap on)"
  172. 7090 print"53273 [212]ype of interrupt which occurred"
  173. 7100 print"53274 [197]nable interrupt to occur"
  174. 7110 print"53275 [211]prite to background priority,"
  175. 7120 print"each bit equivalent to sprite no"
  176. 7130 print"53276 [211]prite hires/multicolour toggle"
  177. 7140 print"53277 [216] expansion - sprites 0-7"
  178. 7150 print"53278 [211]prite-to-sprite collisions"
  179. 7160 print"53279 [211]prite-to-background collisions"
  180. 7170 print"53280 [211]creen border colour"
  181. 7180 print"53281 [211]creen background colour"
  182. 7190 print"53287-53294 [211]prites 0-7 colour"
  183. 7990 return
  184. 7998 :
  185. 7999 rem *****************help screen 8
  186. 8000 hd$="     [211]ound      ":bd=6:bg=1:fm=12:fg=0
  187. 8010 print"[214]oice 1:"
  188. 8020 print"54272 [198]requency low byte   (0-255)"
  189. 8030 print"54273 [198]requency high byte  (0-255)"
  190. 8040 print"54274 [208]ulse width low byte (0-255)"
  191. 8050 print"54275 [208]ulse width high byte (0-15)"
  192. 8060 print"54276 [215]aveform 16=triangle  64=pulse"
  193. 8070 print"32=sawtooth 128=noise"
  194. 8080 print"54277 [193]ttack/[196]ecay (use att*16+dec)"
  195. 8090 print"54278 [211]ustain/[210]elease (sus*16+rel)"
  196. 8100 print"[214]oice 2: 54279-54285 same as above"
  197. 8110 print"[214]oice 3: 54286-54292 same as above"
  198. 8120 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  199. 8130 print"54295:bits 0-2  - filter switches for"
  200. 8140 print"voices 1,2,3  0=off, 1=filter on"
  201. 8150 print"bits 4-7  - resonance setting"
  202. 8160 print"54296:bits 0-3  - volume (0-15)"
  203. 8170 print"4  - lowpass filter"
  204. 8180 print"5  - bandpass"
  205. 8190 print"6  - highpass    54297-8"
  206. 8200 print"54299:oscillator 3 output     paddles"
  207. 8210 print"54300:envelope 3 output       (port 1)"
  208. 8990 return
  209. 8998 :
  210. 8999 rem *****************help screen 9
  211. 9000 hd$="  [196]os/[208]rinter   ":bd=6:bg=1:fm=12:fg=0
  212. 9010 print"[207][208][197][206]15,8,15 , then:"
  213. 9020 print"[198]ormat    : [208][210][201][206][212]#15,"chr$(34)"[206]0:diskname,id"chr$(34)
  214. 9030 print"[210]ename    : [208][210][201][206][212]#15,"chr$(34)"[210]0:new=old"chr$(34)
  215. 9040 print"[211]cratch   : [208][210][201][206][212]#15,"chr$(34)"[211]0:filename"chr$(34)
  216. 9050 print"[214]alidate  : [208][210][201][206][212]#15,"chr$(34)"[214]0"chr$(34)
  217. 9060 print"[201]nitialise: [208][210][201][206][212]#15,"chr$(34)"[201]0"chr$(34)
  218. 9070 print"and [195][204][207][211][197] 15"
  219. 9080 print"[212]o read error channel:"
  220. 9090 print"[207][208][197][206]15,8,15:[201][206][208][213][212]#15,[197][210],[197][210]$,[212][203],[211][210]"
  221. 9100 print"[208][210][201][206][212][197][210],[197][210]$,[212][203],[211][210]:[195][204][207][211][197]15"
  222. 9110 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  223. 9120 print"[197]nhance [207]n/[207]ff       [195][200][210]$(14)/[195][200][210]$(15)"
  224. 9130 print"[210]everse [207]n/[207]ff      [195][200][210]$(18)/[195][200][210]$(146)"
  225. 9140 print"[212]ab (n is tab position)   [195][200][210]$(16);"chr$(34)"n"chr$(34)
  226. 9150 print"[195]arriage [210]eturn               [195][200][210]$(13)"
  227. 9160 print"[204]ine [198]eed                     [195][200][210]$(10)"
  228. 9170 print"[213]ppercase/[199]raphics [207]n         [195][200][210]$(34)"
  229. 9180 print"[213]pper/[204]owercase [207]n            [195][200][210]$(17)"
  230. 9190 print"[209]uote ("chr$(34)")                     [195][200][210]$(34)"
  231. 9200 print"[194]itmap [208]rinting [207]n             [195][200][210]$(8)"
  232. 9210 print"[210]epeated [194]it [201]mage    [195][200][210]$(26);[195][200][210]$(n)"
  233. 9990 return
  234. 9998 :
  235. 9999 rem ****************help screen 10
  236. 10000 hd$=" [205]iscellaneous  ":bd=6:bg=1:fm=12:fg=0
  237. 10010 print"[202][207][217][211][212][201][195][203][211]:"
  238. 10020 print"[208]ort 1 - [208][197][197][203](56321), 2 - [208][197][197][203](56320)"
  239. 10030 print"[176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][174]"
  240. 10040 print"[221] - [221] - [221] - [221][198]ire[221][210]ight[221][204]eft[221][196]own[221][213]p[221]"
  241. 10050 print"[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][189]"
  242. 10060 print" [194][201][212] 7   6   5    4     3    2    1  0"
  243. 10070 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  244. 10080 print"[208][207][203][197]808,251    [196]isable [210]un[211]top/[210]estore"
  245. 10090 print"[208][207][203][197]774,131:[208][207][203][197]775,164   [196]isable [204][201][211][212]"
  246. 10100 print"[208][207][203][197]818,133:[208][207][203][197]819,164   [196]isable [211][193][214][197]"
  247. 10110 print"[208][207][203][197]774,226:[208][207][203][197]775,252  [210]eset on [204][201][211][212]"
  248. 10115 print"[208][207][203][197]818,226:[208][207][203][197]819,252  [210]eset on [211][193][214][197]"
  249. 10120 print"[208][207][203][197]19,2    [210]emove ? from [201][206][208][213][212] prompt"
  250. 10130 print"[208][207][203][197]19,0    [210]estore [201][206][208][213][212] prompt"
  251. 10150 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  252. 10160 print"[212]o stop disk drive head bang, use:"
  253. 10170 print"[207][208][197][206]15,8,15,"chr$(34)"[205]-[215]"chr$(34)"+[195][200][210]$(106)+[195][200][210]$(0)+"
  254. 10180 print"+[195][200][210]$(1)+[195][200][210]$(133):[195][204][207][211][197]15"
  255. 10190 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  256. 10200 print"[211][217][211]65126  [215]arm [211]tart ([210]un[211]top/[210]estore)"
  257. 10210 print"[211][217][211]64738  [195]old [211]tart ([210]eset)"
  258. 10990 return
  259.